home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8502.arc / NAMEPROC.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  512b  |  19 lines
  1.    10 REM   AN EXAMPLE USING NAMED PROCEDURES
  2.    20 REM
  3.    30 N = 0
  4.    40 loop
  5.    50    input "What is your name?   ", NAME$
  6.    60    if NAME$ = "done" then quit
  7.    70    let N = N + 1
  8.    80    call SAY_HELLO_TO (NAME$)
  9.    90    print "Come again."
  10.   100 endloop
  11.   110 print N;"people visited."
  12.   120 REM
  13.   130 proc SAY_HELLO_TO(PERSON$),N
  14.   140   print "Hi ";PERSON$;".  Nice to meet you!"
  15.   150   input "Please type a number  ", N
  16.   160   print "Your number is ";N
  17.   170 endproc
  18.   180 end
  19.